             Prvi zadatak

 

option explicit

sub vezba1

dim i as long, n as long, s as string, p as string, q as string

s = inputbox("Unesi string")

n = len(s)

for i = 1 to n/2

p = mid (s,i,1)

q = mid(s, n - i + 1, 1)

if p<>q then

msgbox("Nije")

exit for

end if

next

if p = q then msgbox("Jeste")

End sub

 

 

 

                 etvrti zadatak

 

 option explicit

sub vezba1

dim n as long, i as long

n = inputbox("n=")

for i = 2 to n\2

if n mod i = 0 then

msgbox("Nije prost")

exit for

end if

next

if n mod i <> 0 then msgbox("Jeste prost")

End sub

 

 

                  esti zadatak

 

Option explicit

sub z

dim n as long, i as long, e as double, f as double

n = inputbox("n=")

e = 1

f = 1

for i = 1 to n

f = f*i

e = e +1/f

next

msgbox(e)

end sub

 

 

                  Sedmi zadatak

 

 

option explicit

sub z

dim x as double, ex as double, n as long, i as long, c as double

n = inputbox("n=")

ex = 1

c = 1

for i = 1 to n

c= c*x/i

ex = ex + c

next

end sub

 

 

                     Osmi zadatak

 

 

option explicit

sub z

dim x as double, ex as double, n as long, i as long, c as double, sinx as double

n = inputbox("n=")

x = inputbox("x=")

sinx=1

c=x

for i = 1 to n

c = c*x^2/(2*i*(2*i+1))

sinx = sinx + c

next

msgbox(sinx)

end sub

 

 

 

                     Deveti zadatak

 

option explicit

sub z

dim n as long, i as long, e as double, f as double, eps as double

eps = inputbox("eps=")

e = 1

f = 1

i = 1

do

f=f*i

e = e + 1/f

i = i + 1

loop until 1/f < eps

msgbox(e)

end sub